Generation of D:\Users\Morgan\PythonEngine\VCL Generator\Standard_d4.prj
Generation started at 07:58:52, 06/07/1999
##################################################################
Generating unit Controls
Could not generate method: procedure TControl.DefaultHandler( var Message )
Could not generate method: procedure TWinControl.Broadcast( var Message )
Could not generate method: procedure TWinControl.DefaultHandler( var Message )
Could not generate method: procedure TWinControl.MouseWheelHandler( var Message : TMessage )
Could not generate method: procedure THintWindow.ActivateHintData( Rect : TRect; const AHint : string; AData : Pointer )
Could not generate method: function THintWindow.CalcHintRect( MaxWidth : Integer; const AHint : string; AData : Pointer ) : TRect
Could not generate method: function THintWindow.IsHintMsg( var Msg : TMsg ) : Boolean
##################################################################
Generating unit Forms
Could not generate method: procedure TCustomForm.DefaultHandler( var Message )
Could not generate method: function TCustomForm.IsShortCut( var Message : TWMKey ) : Boolean
Could not generate method: procedure TCustomForm.MouseWheelHandler( var Message : TMessage )
Could not generate method: function TCustomForm.WantChildKey( Child : TControl; var Message : TMessage ) : Boolean
Could not generate method: function TCustomActiveForm.WantChildKey( Child : TControl; var Message : TMessage ) : Boolean
Could not generate method: procedure TApplication.CreateForm( InstanceClass : TComponentClass; var Reference )
Could not generate method: procedure TApplication.HintMouseMessage( Control : TControl; var Message : TMessage )
Could not generate method: procedure TApplication.HookMainWindow( Hook : TWindowHook )
Could not generate method: procedure TApplication.ShowException( E : Exception )
Could not generate method: procedure TApplication.UnhookMainWindow( Hook : TWindowHook )
##################################################################
Generating unit Graphics
Could not generate method: procedure TCanvas.Polygon( const Points : array of TPoint )
Could not generate method: procedure TCanvas.Polyline( const Points : array of TPoint )
Could not generate method: procedure TCanvas.PolyBezier( const Points : array of TPoint )
Could not generate method: procedure TCanvas.PolyBezierTo( const Points : array of TPoint )
Could not generate result of method: TCanvas.TextExtent( const Text : string ) : TSize
Could not generate method: procedure TGraphic.SaveToClipboardFormat( var AFormat : Word; var AData : THandle; var APalette : HPALETTE )
Could not generate method: procedure TPicture.SaveToClipboardFormat( var AFormat : Word; var AData : THandle; var APalette : HPALETTE )
Could not generate method: procedure TPicture.RegisterFileFormat( const AExtension, ADescription : string; AGraphicClass : TGraphicClass )
Could not generate method: procedure TPicture.RegisterFileFormatRes( const AExtension : String; ADescriptionResID : Integer; AGraphicClass : TGraphicClass )
Could not generate method: procedure TPicture.RegisterClipboardFormat( AFormat : Word; AGraphicClass : TGraphicClass )
Could not generate method: procedure TPicture.UnregisterGraphicClass( AClass : TGraphicClass )
Could not generate method: procedure TMetafile.SaveToClipboardFormat( var AFormat : Word; var AData : THandle; var APalette : HPALETTE )
Could not generate method: procedure TBitmap.SaveToClipboardFormat( var Format : Word; var Data : THandle; var APalette : HPALETTE )
Could not generate result of method: TBitmap.ScanLine( Row : Integer ) : Pointer
Could not generate method: procedure TIcon.SaveToClipboardFormat( var Format : Word; var Data : THandle; var APalette : HPALETTE )
##################################################################
Generating unit StdCtrls
Could not generate method: procedure TCustomEdit.DefaultHandler( var Message )
##################################################################
Generating unit Classes
Could not generate method: function TList.Add( Item : Pointer ) : Integer
Could not generate result of method: TList.First : Pointer
Could not generate method: function TList.IndexOf( Item : Pointer ) : Integer
Could not generate method: procedure TList.Insert( Index : Integer; Item : Pointer )
Could not generate result of method: TList.Last : Pointer
Could not generate method: function TList.Remove( Item : Pointer ) : Integer
Could not generate method: procedure TList.Sort( Compare : TListSortCompare )
Could not generate result of method: TList.Items( Index : Integer ) : Pointer
Could not generate method: procedure TThreadList.Add( Item : Pointer )
Could not generate method: procedure TThreadList.Remove( Item : Pointer )
Could not generate method: function TStringList.Find( const S : string; var Index : Integer ) : Boolean
Could not generate method: function TStream.Read( var Buffer; Count : Longint ) : Longint
Could not generate method: function TStream.Write( const Buffer; Count : Longint ) : Longint
Could not generate method: procedure TStream.ReadBuffer( var Buffer; Count : Longint )
Could not generate method: procedure TStream.WriteBuffer( const Buffer; Count : Longint )
Could not generate method: function THandleStream.Read( var Buffer; Count : Longint ) : Longint
Could not generate method: function THandleStream.Write( const Buffer; Count : Longint ) : Longint
Could not generate method: function TCustomMemoryStream.Read( var Buffer; Count : Longint ) : Longint
Could not generate method: function TMemoryStream.Write( const Buffer; Count : Longint ) : Longint
Could not generate method: function TStringStream.Read( var Buffer; Count : Longint ) : Longint
Could not generate method: function TStringStream.Write( const Buffer; Count : Longint ) : Longint
Could not generate method: function TResourceStream.Write( const Buffer; Count : Longint ) : Longint
Could not generate method: function TStreamAdapter.Read( pv : Pointer; cb : Longint; pcbRead : PLongint ) : HResult
Could not generate method: function TStreamAdapter.Write( pv : Pointer; cb : Longint; pcbWritten : PLongint ) : HResult
Could not generate method: function TStreamAdapter.Seek( dlibMove : Largeint; dwOrigin : Longint; out libNewPosition : Largeint ) : HResult
Could not generate method: function TStreamAdapter.SetSize( libNewSize : Largeint ) : HResult
Could not generate method: function TStreamAdapter.CopyTo( stm : IStream; cb : Largeint; out cbRead : Largeint; out cbWritten : Largeint ) : HResult
Could not generate method: function TStreamAdapter.LockRegion( libOffset : Largeint; cb : Largeint; dwLockType : Longint ) : HResult
Could not generate method: function TStreamAdapter.UnlockRegion( libOffset : Largeint; cb : Largeint; dwLockType : Longint ) : HResult
Could not generate method: function TStreamAdapter.Stat( out statstg : TStatStg; grfStatFlag : Longint ) : HResult
Could not generate method: function TStreamAdapter.Clone( out stm : IStream ) : HResult
Could not generate method: procedure TFiler.DefineProperty( const Name : string; ReadData : TReaderProc; WriteData : TWriterProc; HasData : Boolean )
Could not generate method: procedure TFiler.DefineBinaryProperty( const Name : string; ReadData, WriteData : TStreamProc; HasData : Boolean )
Could not generate method: procedure TReader.DefineProperty( const Name : string; ReadData : TReaderProc; WriteData : TWriterProc; HasData : Boolean )
Could not generate method: procedure TReader.DefineBinaryProperty( const Name : string; ReadData, WriteData : TStreamProc; HasData : Boolean )
Could not generate method: procedure TReader.Read( var Buf; Count : Longint )
Could not generate method: procedure TReader.ReadComponents( AOwner, AParent : TComponent; Proc : TReadComponentsProc )
Could not generate method: procedure TReader.ReadPrefix( var Flags : TFilerFlags; var AChildPos : Integer )
Could not generate method: procedure TWriter.DefineProperty( const Name : string; ReadData : TReaderProc; WriteData : TWriterProc; HasData : Boolean )
Could not generate method: procedure TWriter.DefineBinaryProperty( const Name : string; ReadData, WriteData : TStreamProc; HasData : Boolean )
Could not generate method: procedure TWriter.Write( const Buf; Count : Longint )
Could not generate method: procedure TParser.ErrorFmt( const Ident : string; const Args : array of const )
Could not generate result of method: TThread.WaitFor : LongWord
Could not generate method: function TComponent.SafeCallException( ExceptObject : TObject; ExceptAddr : Pointer ) : HResult
##################################################################
Generating unit Menus
Could not generate method: function TMenu.DispatchPopup( AHandle : HMENU ) : Boolean
Could not generate method: function TMenu.IsShortCut( var Message : TWMKey ) : Boolean
Could not generate method: procedure TMenu.ProcessMenuChar( var Message : TWMMenuChar )
Could not generate method: procedure TMainMenu.PopulateOle2Menu( SharedMenu : HMenu; Groups : array of Integer; var Widths : array of Longint )
Could not generate method: procedure TMainMenu.GetOle2AcceleratorTable( var AccelTable : HAccel; var AccelCount : Integer; Groups : array of Integer )
Could not generate method: procedure TMainMenu.SetOle2MenuHandle( Handle : HMENU )
##################################################################
Generating unit System
Could not generate method: function TObject.InitInstance( Instance : Pointer ) : TObject
Could not generate result of method: TObject.ClassType : TClass
Could not generate result of method: TObject.ClassParent : TClass
Could not generate result of method: TObject.ClassInfo : Pointer
Could not generate method: function TObject.InheritsFrom( AClass : TClass ) : Boolean
Could not generate result of method: TObject.MethodAddress( const Name : ShortString ) : Pointer
Could not generate method: function TObject.MethodName( Address : Pointer ) : ShortString
Could not generate result of method: TObject.FieldAddress( const Name : ShortString ) : Pointer
Could not generate method: function TObject.GetInterface( const IID : TGUID; out Obj ) : Boolean
Could not generate method: function TObject.GetInterfaceEntry( const IID : TGUID ) : PInterfaceEntry
Could not generate result of method: TObject.GetInterfaceTable : PInterfaceTable
Could not generate method: function TObject.SafeCallException( ExceptObject : TObject; ExceptAddr : Pointer ) : HResult
Could not generate method: procedure TObject.Dispatch( var Message )
Could not generate method: procedure TObject.DefaultHandler( var Message )
##################################################################
Generating unit ExtCtrls
##################################################################
Generating unit ActnList
Could not generate method: function TCustomActionList.IsShortCut( var Message : TWMKey ) : Boolean
Could not generate method: function TCustomAction.DoHint( var HintStr : string ) : Boolean
##################################################################
Generating unit ImgList
##################################################################
Generating unit Dialogs
Could not generate method: procedure TCommonDialog.DefaultHandler( var Message )
##################################################################
Generation finished at 07:59:03, 06/07/1999

755 methods generated.
88 methods not properly implemented (11,66%).
12 methods whose result is not implemented (1,59%).
